home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / dorpch37.arc / DOORPCH.USR < prev    next >
Text File  |  1991-01-01  |  11KB  |  187 lines
  1. ' *****************************************************************************
  2. ' *                     DOORPCH.USR Version 3.7 for Doors                     *
  3. ' *                    By Raymond Clements, Clint Labarthe                    *
  4. ' *                Terry Shockley, Harold Thomson & Ben Perron                *
  5. ' *      Copyright (C), 1987, 1988, 1989, 1990, 1991 All Rights Reserved      *
  6. ' *                This logic begins at line number (label) 1.                *
  7. ' *                                                                           *
  8. ' *         Do NOT under any circumstances modify this INCLUDE file.          *
  9. ' *         Any modification will result in an INCORRECT Link and program     *
  10. ' *         failure as DOORPCH has already been linked using it.              *
  11. ' *****************************************************************************
  12.  
  13. ' Common BLOCK Doorpch shared only with DOORPCH DOOR programs
  14.   COMMON SHARED /DoorPch.Usr/ ALIAS.FIRST$,                   _
  15.                               ALIAS.LAST$,                    _
  16.                               ALIAS.NAME$,                    _
  17.                               ANSI%,                          _
  18.                               ANSI.COLOR%,                    _
  19.                               ANSI.MUSIC%,                    _
  20.                               ARG$,                           _
  21.                               BACKSPACE$,                     _
  22.                               BAUDCONN$,                      _
  23.                               BAUDOPEN$,                      _
  24.                               BBSSYS$,                        _
  25.                               BBSSYS.FILE$,                   _
  26.                               BELL%,                          _
  27.                               BGC%,                           _
  28.                               BIRTH.DATE$,                    _
  29.                               BLINK%,                         _
  30.                               BYTES.DOWNLOADED.THIS.CALL#,    _
  31.                               CALLALARM%,                     _
  32.                               CENTER%,                        _
  33.                               CITY.STATE$,                    _
  34.                               CLRHOME$,                       _
  35.                               COM.PORT%,                      _
  36.                               COMPRTOPN%,                     _
  37.                               CONFERENCE.EXITED.FROM$,        _
  38.                               CONFERENCE.MEMBER$,             _
  39.                               CFG.FILE$,                      _
  40.                               CR$,                            _
  41.                               CRLF$,                          _
  42.                               D.TIME#,                        _
  43.                               DAY%,                           _
  44.                               DEFAULT.BBS.COLOR%,             _
  45.                               DISPLAY%,                       _
  46.                               DISPTIME$,                      _
  47.                               DMIN%,                          _
  48.                               DOOR.SHUTDOWN%,                 _
  49.                               DOORPCH.SCORES%,                _
  50.                               DOWNLOADS#,                     _
  51.                               ERRCNT%,                        _
  52.                               ERREXP%,                        _
  53.                               ERROR.CORRECTING.CONNECTION%,   _
  54.                               ESC$,                           _
  55.                               EVENT.TIME$,                    _
  56.                               EVENT.TIME#,                    _
  57.                               EXPERT$,                        _
  58.                               EXTRA%,                         _
  59.                               EXTRA1$,                        _
  60.                               EXTRA1.NAME$,                   _
  61.                               EXTRA1.NUMERIC%,                _
  62.                               EXTRA2$,                        _
  63.                               EXTRA2.NAME$,                   _
  64.                               EXTRA2.NUMERIC%,                _
  65.                               EXTRA3$,                        _
  66.                               EXTRA3.NAME$,                   _
  67.                               EXTRA3.NUMERIC%,                _
  68.                               FGC%,                           _
  69.                               FILES.DOWNLOADED.TODAY#,        _
  70.                               FIRST$,                         _
  71.                               GEN.DIR$,                       _
  72.                               GRAPHICS%,                      _
  73.                               HANGUP%,                        _
  74.                               HIGH%,                          _
  75.                               HOME$,                          _
  76.                               HOMEPHONE$,                     _
  77.                               HOURS%,                         _
  78.                               HSCR#,                          _
  79.                               HSCR.2DECIMALS%,                _
  80.                               HSCR.DOLLARS%,                  _
  81.                               J.AGE#,                         _
  82.                               J.DAY%,                         _
  83.                               J.MONTH$,                       _
  84.                               J.MONTH%,                       _
  85.                               J.WEEKDAY$,                     _
  86.                               J.WEEKDAY%,                     _
  87.                               J.YEAR%,                        _
  88.                               JULIAN#,                        _
  89.                               LAST$,                          _
  90.                               LAST.DATE.ON$,                  _
  91.                               LAST.DATE.PLAYED$,              _
  92.                               LAST.DIR.DATE$,                 _
  93.                               LF$,                            _
  94.                               LN$,                            _
  95.                               LOCAL.MODE%,                    _
  96.                               LOCAL.MUSIC%,                   _
  97.                               LOCALUSR%,                      _
  98.                               MAIN.DIR$,                      _
  99.                               MAX.DAILY.FILES#,               _
  100.                               MAX.DAILY.K#,                   _
  101.                               MINS.CREDITED%,                 _
  102.                               MINUTES%,                       _
  103.                               MUSIC$,                         _
  104.                               NAME$,                          _
  105.                               NAME.CAPS$,                     _
  106.                               NETWORK%,                       _
  107.                               NO.DISPLAY.OFF%,                _
  108.                               NODE%,                          _
  109.                               NON.GRAPHICS.ANSI%,             _
  110.                               ONCE%,                          _
  111.                               PAGE.LENGTH%,                   _
  112.                               PAGEBELL%,                      _
  113.                               PARAM$,                         _
  114.                               PASSWORD$,                      _
  115.                               PCB.CALLER.FILE$,               _
  116.                               PCB.DAT.FILE$,                  _
  117.                               PCB.USERS.FILE$,                _
  118.                               PLAYER2.NAME$,                  _
  119.                               PLAYER2.EXTRA1$,                _
  120.                               PLAYER2.EXTRA2$,                _
  121.                               PLAYER2.EXTRA3$,                _
  122.                               PLAYER2.HSCR#,                  _
  123.                               PLAYER2.LAST.DATE.PLAYED$,      _
  124.                               PLAYER2.RUNG%,                  _
  125.                               POINTS.NAME$,                   _
  126.                               PRINT.USING$,                   _
  127.                               PROGB$,                         _
  128.                               PROGNAME$,                      _
  129.                               PROTOCOL$,                      _
  130.                               R.ELEASE$,                      _
  131.                               RECORD.NUMBER#,                 _
  132.                               RETURNCASE%,                    _
  133.                               RUNG%,                          _
  134.                               SCORES.NAME$,                   _
  135.                               SECONDS%,                       _
  136.                               SECS.LEFT#,                     _
  137.                               SECURITY.LEVEL%,                _
  138.                               SHUTDOWN%,                      _
  139.                               SINCEMID#,                      _
  140.                               SORT%,                          _
  141.                               SUBSCRIPTION.DATE$,             _
  142.                               SYMBOL$,                        _
  143.                               SYSFIRST$,                      _
  144.                               SYSLAST$,                       _
  145.                               SYSNAME$,                       _
  146.                               SYSOP%,                         _
  147.                               SYSOP.COMMENT$,                 _
  148.                               TBSN%,                          _
  149.                               TIME.CALLED$,                   _
  150.                               TIME.LAST.CALLED$,              _
  151.                               TIME.ON#,                       _
  152.                               TIMESTART#,                     _
  153.                               TIMES.ON#,                      _
  154.                               TOTAL.DOORS.OPENED#,            _
  155.                               TOTAL.DOWNLOADED.K#,            _
  156.                               TOTAL.MSGS.LEFT#,               _
  157.                               TOTAL.MSGS.READ#,               _
  158.                               TOTAL.UPLOADED.K#,              _
  159.                               UPLOADS#,                       _
  160.                               USE.AT.CODES%,                  _
  161.                               USE.BASIC.COLORS%,              _
  162.                               USER.COMMENT$,                  _
  163.                               USR.KY$,                        _
  164.                               USR.NODE$,                      _
  165.                               WORKPHONE$,                     _
  166.                               XPOS%,                          _
  167.                               YPOS%
  168.  
  169. ' *****************************************************************************
  170. ' *  Constants ...                                                            *
  171. ' *****************************************************************************
  172.  
  173.   CONST TRUE    = -1, _
  174.         FALSE   =  0, _      
  175.         YES     =  1, _
  176.         NO      =  0
  177.  
  178.   CONST BLACK   =  0, _
  179.         RED     =  1, _
  180.         GREEN   =  2, _
  181.         YELLOW  =  3, _
  182.         BLUE    =  4, _
  183.         MAGENTA =  5, _
  184.         CYAN    =  6, _
  185.         WHITE   =  7
  186.  
  187.